#!/usr/bin/perl

package protect;
sub DO{${$_[0]} =~ s{([^\w.\-\+_=\?\&:/@!%])}{'%'.unpack('H2',$1)}eg;}

1;